home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1996 / MacHack 1996.toast / Hacks / Hacks ’92 / Scroll O Rama / SBar Init / SBarInit.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-07-10  |  632 b   |  33 lines  |  [TEXT/KAHL]
  1. /*    This is the source code for the init resource for the cdev.  All it        */
  2. /*    does is display the icons at start-up.                                    */
  3.  
  4.  
  5. #define    BaseIconID    128
  6. #define    LastIconID    -4064
  7. #define    ProcID        128
  8. #define WordResID    -4048
  9. #define NumIcons    8
  10. #define    NormalAppFont    applFont
  11. #define    DelayTime        30L
  12.  
  13. main()
  14. {
  15.     Handle    procH;
  16.     int        i;
  17.     long    dummy;
  18.     
  19.     if ((procH = GetResource('jROC', ProcID)) != 0l)
  20.         {
  21.             HLock(procH);
  22.             CallPascal(BaseIconID, 0, *procH);
  23.             Delay(DelayTime, &dummy);
  24.             
  25.             for (i = 1; i < NumIcons -1; i++)
  26.                 CallPascal(BaseIconID + i, 0, *procH);
  27.             CallPascal(LastIconID, -1, *procH);
  28.             HUnlock(procH);
  29.         }
  30. }
  31.  
  32.  
  33.